home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Hops2b.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  1.9 KB  |  58 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Hops2b.h"
  6.  
  7. //---------------------------------------------------------------------------
  8. #pragma resource "*.dfm"
  9.  
  10. const String Pfad = "c:\\cpp\\buch\\";  // oder Pfad fⁿr Buch-CD 
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.     : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18. void __fastcall TForm1::FormCreate(TObject *Sender)
  19. {
  20.   Movie1 = new TMovie (this);
  21.   Movie1->Parent = Panel1;
  22.   Movie1->Stretch = true;
  23.   Movie1->SetSize (Rect(10,10,Panel1->Width-10,Panel1->Height-10));
  24.   // Anzeige-Hintergrund an Bild anpassen
  25.   Panel1->Color = clBlack;
  26. }
  27. //---------------------------------------------------------------------------
  28. void __fastcall TForm1::ShowButtonClick(TObject *Sender)
  29. {
  30.   Movie1->ShowImage (Pfad+"Hops1.bmp");
  31. }
  32. //---------------------------------------------------------------------------
  33. void __fastcall TForm1::HideButtonClick(TObject *Sender)
  34. {
  35.   Movie1->HideImage ();
  36. }
  37. //---------------------------------------------------------------------------
  38. void __fastcall TForm1::MoveButtonClick(TObject *Sender)
  39. {
  40.   Movie1->MoveImage (Pfad+"Hops2.bmp");
  41. }
  42. //---------------------------------------------------------------------------
  43. void __fastcall TForm1::TurnButtonClick(TObject *Sender)
  44. {
  45.   Movie1->TurnImage (Pfad+"Hops5.bmp");
  46. }
  47. //---------------------------------------------------------------------------
  48. void __fastcall TForm1::EndButtonClick(TObject *Sender)
  49. {
  50.   Close ();
  51. }
  52. //---------------------------------------------------------------------------
  53. void __fastcall TForm1::TwistButtonClick(TObject *Sender)
  54. {
  55.   Movie1->TwistImage (Pfad+"Hops1.bmp");
  56. }
  57. //---------------------------------------------------------------------------
  58.